10/01/2020

Earthquakes by magnitude

R code

library(plotly)

text <- paste("Mag:", quakes$mag)
p <- plot_ly(
        type = 'scattermapbox',
        mode = "markers",
        lon = quakes$long,
        lat = quakes$lat,
        text = text,
        size = as.numeric(quakes$mag)/20,
        marker = list(color = "red")) %>%
        layout(title = "Earthquakes off Fiji",
               geo = list ( scope = 'south asia' ),
               mapbox = list(
                       style = "stamen-terrain",
                       center = list(lon = 180, lat= -20),
                       zoom = 4))
p
Earthquakes off Fiji

10/01/2020

Earthquakes by magnitude

R code

library(plotly)

text <- paste("Mag:", quakes$mag)
p <- plot_ly(
        type = 'scattermapbox',
        mode = "markers",
        lon = quakes$long,
        lat = quakes$lat,
        text = text,
        size = as.numeric(quakes$mag)/20,
        marker = list(color = "red")) %>%
        layout(title = "Earthquakes off Fiji",
               geo = list ( scope = 'south asia' ),
               mapbox = list(
                       style = "stamen-terrain",
                       center = list(lon = 180, lat= -20),
                       zoom = 4))
p